home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-seriously_amiga-
/
misc
/
amised
/
scripts
/
hunt.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-04-19
|
609b
|
41 lines
/* AMIS File hunter */
OPTIONS RESULTS
/*address 'AMISPORT.1'*/
'GetLine'
if(left(result,8)='#include') then
do
PARSE VAR result . '<' File '>'
if(File="") then
do
PARSE VAR result . '"' File '"'
end
if(exists(File)) then
do
'File NAME="'||File||'" OPEN'
exit
end
'Query PATH'
path=result
if(right(result,1)=':') then
do
PFile=path||File
end
else
do
PFile=path||'/'||File
end
if(exists(PFile)) then
do
'File NAME="'||PFile||'" OPEN'
exit
end
File='Include:'||File
if(exists(File)) then
do
'File NAME="'||File||'" OPEN'
end
end